Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/istatist.exe/0/RCDATA/TFORMFIRMADR/TFORMFIRMADR.txt

Text File | 1998-07-13 | 18KB | 559 lines

object FormFirmaDr: TFormFirmaDr
  Left = 0
  Top = 1
  Width = 641
  Height = 443
  Caption = 'Doktor-Firama Grafi�i'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object LabelBaslik: TLabel
    Left = 0
    Top = 0
    Width = 613
    Height = 31
    AutoSize = False
    Caption = 'LabelBaslik'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object DBGrid3: TDBGrid
    Left = 8
    Top = 31
    Width = 436
    Height = 81
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
  end
  object PanelGRAF: TPanel
    Left = 0
    Top = 180
    Width = 663
    Height = 844
    BevelInner = bvLowered
    BorderWidth = 3
    Caption = 'PanelGRAF'
    Color = clNavy
    TabOrder = 4
    object ScrollBox1: TScrollBox
      Left = 5
      Top = 5
      Width = 653
      Height = 834
      Align = alClient
      Color = clGray
      ParentColor = False
      TabOrder = 0
      object Label2: TLabel
        Left = 567
        Top = 190
        Width = 63
        Height = 84
        Caption = 'Grafik Bilgisinin Yaz�laca�� Txt. Dosyas�n�n Ad�'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Chart1: TChartFX
        Left = 0
        Top = 0
        Width = 565
        Height = 409
        TabOrder = 0
        ControlData = {
          653A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          0000000000000000000000000000000000000000000000000000000000300000
          00000054008A10000080685B00AC2A020684643702003E5A00943D5A000C0054
          0090385A00B8AC2402000000006C845700380000000000540000000000000000
          00D4FC63006E7374732E706173EC41EE0272642E7090CF23026C4F5900000000
          00F08755020000000000CE590034000000000054008A100000C08C5700ECEE58
          000C005400EE000045543E5A001C321E025041530000006300E0535B00000000
          000C4C590030000000000054009A100000744259000000000000000000848457
          00000000003C624602A431590028A55502EE000000BC255F00000000000000F0
          3F000000000000F03F0200040000000000000000000000000000002440000000
          00000000000000000000000000000000009A0402}
      end
      object BtnYUK: TBitBtn
        Left = 567
        Top = 29
        Width = 45
        Height = 45
        Caption = 'Y&ukar�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BtnYUKClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
      object BtnYAZ: TBitBtn
        Left = 567
        Top = 140
        Width = 45
        Height = 44
        Caption = '&Yaz�c�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BtnYAZClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object BitBtnASA: TBitBtn
        Left = 567
        Top = 84
        Width = 45
        Height = 45
        Caption = 'A&�a��'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtnASAClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC33333393333374373333337333333730000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object ChartMik: TChartFX
        Left = 1
        Top = 413
        Width = 564
        Height = 409
        TabOrder = 6
        ControlData = {
          4B3A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          00000000000000000000000000000000000000000000000000000000002C0000
          00000054008A10000080685B00AC2A02060000000000000000C012580010FE37
          020000000094045800606C62022C000000000054000000000000000000D4FC63
          006E7374732E706173EC41EE0210FE37020000000034F0630040035900280000
          00000054008A100000C08C570074656C696B6C6572DC375A00C0043002205759
          00ACFC570074C35A0020000000000054009A1000007442590074572D026C0358
          000000000034914202E4B05900000000000000F03F000000000000F03F020004
          0000000000000000000000000000002440000000000000000000000000000000
          00000000000000000000000028E35800}
      end
      object BtnTXT: TBitBtn
        Left = 567
        Top = 314
        Width = 45
        Height = 45
        Caption = '.txt Ya&z'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BtnTXTClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
          C8807FF7777777777FF700000000000000007777777777777777333333333333
          33333333333333333333333333333333333333333333333333330000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object EditFile: TEdit
        Left = 566
        Top = 278
        Width = 80
        Height = 22
        TabOrder = 4
        Text = 'istDrFir.txt'
      end
      object BitBtn1: TBitBtn
        Left = 570
        Top = 463
        Width = 41
        Height = 45
        Caption = 'Yuka&r�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn1Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
    end
  end
  object RadioGrafik: TRadioGroup
    Left = 7
    Top = 112
    Width = 290
    Height = 66
    Caption = '�izilec&ek Grafik'
    ItemIndex = 0
    Items.Strings = (
      '��aretli Firman�n G�nl�k �la� Miktar� ve Tutar�'
      '��aretli Firman�n Ayl�k �la� Miktar� ve  Tutar�'
      '��aretli Firman�n Y�ll�k �la� Miktar� ve Tutar�')
    TabOrder = 1
  end
  object BtnGRAFCIZ: TBitBtn
    Left = 312
    Top = 129
    Width = 73
    Height = 24
    Caption = '&Grafi�i �iz'
    TabOrder = 2
    OnClick = BtnGRAFCIZClick
  end
  object BitBtn3: TBitBtn
    Left = 470
    Top = 41
    Width = 92
    Height = 25
    TabOrder = 3
    Kind = bkClose
  end
  object QFirma: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000564726B6F6400030400010000000001}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.DRKOD,'
      'ISTATIKR.SATISNO,'
      'ISTATIKR.KURUMKOD,'
      'ISTATIKR.ALTARIH,'
      'SATIS.ILACNO,'
      'SATIS.MIKTAR,'
      'SATIS.FIYAT,'
      'URUN.ILACNO,'
      'URUN.FIRMANO,'
      'ISTATIKR.GUN,'
      'ISTATIKR.AY,'
      'ISTATIKR.YIL'
      'FROM ISTATIKR,SATIS,URUN'
      'WHERE '
      '(ISTATIKR.DRKOD=:drkod) AND'
      '(ISTATIKR.SATISNO=SATIS.SATISNO) AND'
      '(SATIS.ILACNO=URUN.ILACNO)'
      'ORDER BY ISTATIKR.SATISNO')
    Left = 16
    Top = 8
    object QFirmaDRKOD: TIntegerField
      FieldName = 'DRKOD'
    end
    object QFirmaSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
    object QFirmaKURUMKOD: TStringField
      FieldName = 'KURUMKOD'
      Size = 11
    end
    object QFirmaALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QFirmaILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object QFirmaMIKTAR: TIntegerField
      FieldName = 'MIKTAR'
    end
    object QFirmaFIYAT: TCurrencyField
      FieldName = 'FIYAT'
    end
    object QFirmaILACNO_1: TIntegerField
      FieldName = 'ILACNO_1'
    end
    object QFirmaFIRMANO: TIntegerField
      FieldName = 'FIRMANO'
    end
    object QFirmaGUN: TFloatField
      FieldName = 'GUN'
    end
    object QFirmaAY: TFloatField
      FieldName = 'AY'
    end
    object QFirmaYIL: TFloatField
      FieldName = 'YIL'
    end
  end
  object DS_QFirma: TDataSource
    DataSet = QFirma
    Left = 48
    Top = 8
  end
  object BatchMove1: TBatchMove
    Destination = IstFirmaTab
    Mappings.Strings = (
      'DRKOD=DRKOD'
      'SATISNO=SATISNO'
      'KURUMKOD=KURUMKOD'
      'ALTARIH=ALTARIH'
      'ILACNO=ILACNO'
      'MIKTAR=MIKTAR'
      'FIYAT=FIYAT'
      'FIRMANO=FIRMANO'
      'GUN=GUN'
      'AY=AY'
      'YIL=YIL')
    Mode = batCopy
    Source = QFirma
    Left = 16
    Top = 40
  end
  object IstFirmaTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'istfirma.db'
    Left = 16
    Top = 72
  end
  object DS_IstFirmaTab: TDataSource
    DataSet = IstFirmaTab
    Left = 48
    Top = 64
  end
  object QFrGrup: TQuery
    BeforeOpen = QFrGrupBeforeOpen
    AfterClose = QFrGrupAfterClose
    OnCalcFields = QFrGrupCalcFields
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTFIRMA.FIRMANO,'
      'SUM(ISTFIRMA.MIKTAR) AS TOPMIK,'
      'SUM(ISTFIRMA.MIKTAR*ISTFIRMA.FIYAT) AS TUTAR'
      'FROM ISTFIRMA'
      'GROUP BY ISTFIRMA.FIRMANO'
      'ORDER BY TOPMIK DESC')
    Left = 16
    Top = 120
    object QFrGrupSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.No'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QFrGrupFIRMANO: TIntegerField
      Alignment = taLeftJustify
      DisplayWidth = 29
      FieldName = 'FIRMANO'
      OnGetText = QFrGrupFIRMANOGetText
    end
    object QFrGrupTOPMIK: TFloatField
      DisplayLabel = 'T.Kutu Mik.'
      FieldName = 'TOPMIK'
    end
    object QFrGrupTUTAR: TCurrencyField
      DisplayLabel = 'T.Br�t Tutar'
      DisplayWidth = 21
      FieldName = 'TUTAR'
    end
  end
  object DataSource1: TDataSource
    DataSet = QFrGrup
    Left = 48
    Top = 120
  end
  object FirmaTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'FIRMA.DB'
    Left = 128
    Top = 40
    object FirmaTabFIRMANO: TAutoIncField
      FieldName = 'FIRMANO'
    end
    object FirmaTabFIRMAD: TStringField
      FieldName = 'FIRMAD'
      Size = 36
    end
  end
  object QAylik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100074649524D414E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTFIRMA.YIL,ISTFIRMA.AY,'
      'SUM(ISTFIRMA.MIKTAR) AS TOPMIK,'
      'SUM(ISTFIRMA.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTFIRMA'
      'WHERE '
      '(ISTFIRMA.FIRMANO=:FIRMANO)'
      'GROUP BY ISTFIRMA.YIL,ISTFIRMA.AY'
      'ORDER BY TOPMIK DESC')
    Left = 277
    Top = 137
    object QAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QAylikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QYillik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100074649524D414E4F00030400640000000000}
    SQL.Strings = (
      'SELECT'
      'ISTFIRMA.YIL,'
      'SUM(ISTFIRMA.MIKTAR) AS TOPMIK,'
      'SUM(ISTFIRMA.MIKTAR*ISTFIRMA.FIYAT) AS TOPTUT'
      'FROM ISTFIRMA'
      'WHERE '
      '(ISTFIRMA.FIRMANO=:FIRMANO)'
      'GROUP BY ISTFIRMA.YIL'
      'ORDER BY TOPTUT DESC')
    Left = 245
    Top = 161
    object QYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QYillikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QGunluk: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100074649524D414E4F00030400640000000000}
    SQL.Strings = (
      'SELECT'
      'ISTFIRMA.ALTARIH,'
      'SUM(ISTFIRMA.MIKTAR) AS TOPMIK,'
      'SUM(ISTFIRMA.MIKTAR*ISTFIRMA.FIYAT) AS TOPTUT'
      'FROM ISTFIRMA'
      'WHERE '
      '(ISTFIRMA.FIRMANO=:FIRMANO)'
      'GROUP BY ISTFIRMA.ALTARIH'
      'ORDER BY TOPTUT DESC')
    Left = 245
    Top = 113
    object QGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QGunlukTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 424
    Top = 128
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Left = 453
    Top = 208
  end
end